home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls036.1.Z / tls036.1 / usr / lib / scosmt / scriptlib / base / respond / respond
Encoding:
Text File  |  1992-09-15  |  597 b   |  24 lines
  1. #
  2. #query the user for a responce.
  3. #a simpler system than prompt, use prompt for
  4. #more sophisticated uses.
  5. #q or Q returns fail, anything else return ok.
  6. #ARGS: <string>, string to print when asking for a responce
  7. #$OK means expression has been resolved or answer is given 
  8. #$FAIL means quit has been selected
  9. #
  10. respond() {
  11.     while    echo "\n${*}\nRespond or enter q to quit: \c" 
  12.     do    read answer
  13.         case $answer in
  14.         Q|q)    return $FAIL                    ;;
  15.         "")    # on a return key return $OK
  16.             answer="RETURNKEY"
  17.             return $OK            ;;
  18.         *)    # on anything else return $OK
  19.             return $OK                    ;;
  20.         esac
  21.     done
  22.     return $OK
  23. }
  24.